QR a pridanie komponnety za behu
Otázka od: mato
2. 8. 2004 13:39
zdravim,
da sa v kode pridat na quick report nova komponenta ? napr. qrlabel.
Odpovedá: Martin Cajbik
2. 8. 2004 14:14
Ano.
Martin Cajbik
mato wrote:
>zdravim,
>
>da sa v kode pridat na quick report nova komponenta ? napr. qrlabel
>
>
Odpovedá: Miso
2. 8. 2004 14:21
----- Original Message -----
From: "mato" <mato.tino@inmail.sk>
>
> da sa v kode pridat na quick report nova komponenta ? napr. qrlabel.
>
..ano..pridavas ako klasicku komponentu, t.j. napr.
with TQRLabel.Create(QuickRep1) do
begin
Parent := QuickRep1;
Left := 10;
Top := 10;
Caption := 'QRLabel1';
end;
Miso
Odpovedá: Martin Cajbik
2. 8. 2004 16:42
Pokial viem tak spravny kod je skor
with TQRLabel(QRBand.AddPrintable(TQRLabel)) do
begin
Left := 10;
Top := 10;
Caption := 'QRLabel1';
end;
Martin Cajbik
Miso wrote:
>----- Original Message -----
>From: "mato" <mato.tino@inmail.sk>
>
>
>>da sa v kode pridat na quick report nova komponenta ? napr. qrlabel.
>>
>>
>>
>
>..ano..pridavas ako klasicku komponentu, t.j. napr.
>
>with TQRLabel.Create(QuickRep1) do
>begin
> Parent := QuickRep1;
> Left := 10;
> Top := 10;
> Caption := 'QRLabel1';
>end;
>
>Miso
>
Odpovedá: mato
4. 8. 2004 6:33
nefunguje ani jeden s kodou, kde robim chybu ?
Ked spustim, vypisuje chybu Acces violation.....
mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
{with TQRLabel(DetailBand1.AddPrintable(TQRLabel)) do
begin
Left:=10;
Top:=10;
Caption:='pokus';
end;}
With TQRLabel.Create(QuickRep1)do
begin
Parent:=QuickRep1;
Left:=10;
Top:=10;
Caption:='pokus';
end;
----- Original Message -----
Subject: Re: QR a pridanie komponnety za behu
> Pokial viem tak spravny kod je skor
>
> with TQRLabel(QRBand.AddPrintable(TQRLabel)) do
> begin
> Left := 10;
> Top := 10;
> Caption := 'QRLabel1';
> end;
>
> Martin Cajbik
>
> Miso wrote:
>
Odpovedá: Parizsky Ladislav
4. 8. 2004 6:48
dd,
pouzivam tento kod pro generovane tiskove sestavy a funguje OK..
with TQRLabel(QRSestava.Bands.ColumnHeaderBand.AddPrintable(TQRLabel))
do
begin
Alignment:= taCenter;
Left:= fLeft;
Top:= 0;
Width:= fWidth;
Height:= 23;
AutoSize:= false;
AutoStretch:= true;
WordWrap:= false;
Font.Size:= 10;
Font.Style:= [];
Frame.DrawBottom:= True;
Frame.DrawLeft:= True;
Frame.DrawTop:= True;
end;
Ladap
>>> mato.tino@inmail.sk 4.8. 2004 7:33:05 >>>
nefunguje ani jeden s kodou, kde robim chybu ?
Ked spustim, vypisuje chybu Acces violation.....
mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
{with TQRLabel(DetailBand1.AddPrintable(TQRLabel)) do
begin
Left:=10;
Top:=10;
Caption:='pokus';
end;}
With TQRLabel.Create(QuickRep1)do
begin
Parent:=QuickRep1;
Left:=10;
Top:=10;
Caption:='pokus';
end;
----- Original Message -----
Subject: Re: QR a pridanie komponnety za behu
> Pokial viem tak spravny kod je skor
>
> with TQRLabel(QRBand.AddPrintable(TQRLabel)) do
> begin
> Left := 10;
> Top := 10;
> Caption := 'QRLabel1';
> end;
>
> Martin Cajbik
>
> Miso wrote:
>
Odpovedá: mato
5. 8. 2004 11:07
stale to vypisuje chybu. kde tento kod pustate? pri akej udalosti a akej
komponente? pripadne mohol by som poslat zdrojak? mam taky jednoduchy test
priklad. form , na nom button po stlaceni aby urobil qr a nan da label
> dd,
> pouzivam tento kod pro generovane tiskove sestavy a funguje OK..
>
> with TQRLabel(QRSestava.Bands.ColumnHeaderBand.AddPrintable(TQRLabel))
> do
> begin
> Alignment:= taCenter;
> Left:= fLeft;
> Top:= 0;
> Width:= fWidth;
> Height:= 23;
> AutoSize:= false;
> AutoStretch:= true;
> WordWrap:= false;
> Font.Size:= 10;
> Font.Style:= [];
> Frame.DrawBottom:= True;
> Frame.DrawLeft:= True;
> Frame.DrawTop:= True;
> end;
>
> Ladap
>
> nefunguje ani jeden s kodou, kde robim chybu ?
> Ked spustim, vypisuje chybu Acces violation.....
> mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
> a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
>
Odpovedá: Martin ASajbik
5. 8. 2004 15:07
Zdravim,
Predpokladam, ze asi nemas vytvorenu tu zostavu.
mato wrote:
> stale to vypisuje chybu. kde tento kod pustate? pri akej udalosti a akej
> komponente? pripadne mohol by som poslat zdrojak? mam taky jednoduchy test
> priklad. form , na nom button po stlaceni aby urobil qr a nan da label
>
>>dd,
>>pouzivam tento kod pro generovane tiskove sestavy a funguje OK..
>>
>>with TQRLabel(QRSestava.Bands.ColumnHeaderBand.AddPrintable(TQRLabel))
>>do
>> begin
>> Alignment:= taCenter;
>> Left:= fLeft;
>> Top:= 0;
>> Width:= fWidth;
>> Height:= 23;
>> AutoSize:= false;
>> AutoStretch:= true;
>> WordWrap:= false;
>> Font.Size:= 10;
>> Font.Style:= [];
>> Frame.DrawBottom:= True;
>> Frame.DrawLeft:= True;
>> Frame.DrawTop:= True;
>> end;
>>
>>Ladap
>>
>>nefunguje ani jeden s kodou, kde robim chybu ?
>>Ked spustim, vypisuje chybu Acces violation.....
>>mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
>>a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
Odpovedá: mato
6. 8. 2004 5:25
mam dalsii unit - form a na nom komponentu quickreport
> Zdravim,
> Predpokladam, ze asi nemas vytvorenu tu zostavu.
>
> mato wrote:
> > stale to vypisuje chybu. kde tento kod pustate? pri akej udalosti a akej
> > komponente? pripadne mohol by som poslat zdrojak? mam taky jednoduchy
test
> > priklad. form , na nom button po stlaceni aby urobil qr a nan da label
> >
> >>dd,
> >>pouzivam tento kod pro generovane tiskove sestavy a funguje OK..
> >>
> >>with TQRLabel(QRSestava.Bands.ColumnHeaderBand.AddPrintable(TQRLabel))
> >>do
> >> begin
> >> Alignment:= taCenter;
> >> Left:= fLeft;
> >> Top:= 0;
> >> Width:= fWidth;
> >> Height:= 23;
> >> AutoSize:= false;
> >> AutoStretch:= true;
> >> WordWrap:= false;
> >> Font.Size:= 10;
> >> Font.Style:= [];
> >> Frame.DrawBottom:= True;
> >> Frame.DrawLeft:= True;
> >> Frame.DrawTop:= True;
> >> end;
> >>
> >>Ladap
> >>
> >>nefunguje ani jeden s kodou, kde robim chybu ?
> >>Ked spustim, vypisuje chybu Acces violation.....
> >>mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
> >>a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
>
Odpovedá: Martin Cajbik
6. 8. 2004 7:47
OK, ale je ta zostava uz vytvorena ked ten kod spustas ?
QRSestava:= TQRSestava.Create(Application);
mato wrote:
> mam dalsii unit - form a na nom komponentu quickreport
>
>
>
>>Zdravim,
>>Predpokladam, ze asi nemas vytvorenu tu zostavu.
Odpovedá: mato
6. 8. 2004 8:30
neviem myslym ze to robi automaticky. Ak dam na quick report rucne
komponnetu qrlabel a spustim kod , ide ok ale ak dam do kodu vytvaranie
novej komponenty, uz spadne s chybou. Mam len jednoduchy skusobny projekt,
jeden form s button a jedn s prazdnou quicreport. Mohol by som vam to poslat
na mail ? Keby ste sa na to mrkli, urcite robim nejaku pitomost.
> OK, ale je ta zostava uz vytvorena ked ten kod spustas ?
>
> QRSestava:= TQRSestava.Create(Application);
>
>
> mato wrote:
> > mam dalsii unit - form a na nom komponentu quickreport
> >
> >
> >
> >>Zdravim,
> >>Predpokladam, ze asi nemas vytvorenu tu zostavu.
>
Odpovedá: Martin Cajbik
6. 8. 2004 9:07
Jasne, mozem sa na to mrknut
mato wrote:
> neviem myslym ze to robi automaticky. Ak dam na quick report rucne
> komponnetu qrlabel a spustim kod , ide ok ale ak dam do kodu vytvaranie
> novej komponenty, uz spadne s chybou. Mam len jednoduchy skusobny projekt,
> jeden form s button a jedn s prazdnou quicreport. Mohol by som vam to poslat
> na mail ? Keby ste sa na to mrkli, urcite robim nejaku pitomost.
>
>
>
>>OK, ale je ta zostava uz vytvorena ked ten kod spustas ?
>>
>>QRSestava:= TQRSestava.Create(Application);
>>
>>
>>mato wrote:
>>
>>>mam dalsii unit - form a na nom komponentu quickreport
>>>
>>>
>>>
>>>
>>>>Zdravim,
>>>>Predpokladam, ze asi nemas vytvorenu tu zostavu.
Odpovedá: mato
6. 8. 2004 9:58
dik, posielam v prilohe
> Jasne, mozem sa na to mrknut
>
> mato wrote:
>
> > neviem myslym ze to robi automaticky. Ak dam na quick report rucne
> > komponnetu qrlabel a spustim kod , ide ok ale ak dam do kodu vytvaranie
> > novej komponenty, uz spadne s chybou. Mam len jednoduchy skusobny
projekt,
> > jeden form s button a jedn s prazdnou quicreport. Mohol by som vam to
poslat
> > na mail ? Keby ste sa na to mrkli, urcite robim nejaku pitomost.
> >
> >
> >
> >>OK, ale je ta zostava uz vytvorena ked ten kod spustas ?
> >>
> >>QRSestava:= TQRSestava.Create(Application);
> >>
> >>
> >>mato wrote:
> >>
> >>>mam dalsii unit - form a na nom komponentu quickreport
> >>>
> >>>
> >>>
> >>>
> >>>>Zdravim,
> >>>>Predpokladam, ze asi nemas vytvorenu tu zostavu.